?END 



PACKET 668 
INPUT 27 
TIME 1629 
DATE 762*7 



CARDS FROM CPA 
WEDNESDAY* 10/13/76 



*** MESSAGE OF THE DAY *** 

WELCOME TO B5700 TIME SHARING. 

MAY YOUR DATA RE DEPENDABLE AND YOUR PROGRAMS PROVEN. 
FROM THE STAFF Qf THE BIG BAD BURROUGHS. 

*** BURROUGHS B5700 TSMCP MARK XVI. 0.69 AND INTRINSICS MARK XVI, 0*00 *** 

?END 

? EXECUTE PATCH/MERGE 

? FILE LINF* LINE PRINT 
? DATA CARD 

/*:PATCH/MERGEx 2 BOJ 1629 10/12/76 

CDA IN CARD'PATCH/MERGEs 2 

PBD06A8 OUT Oil L I NE : PATCH/MERGE* 2 

DKA OUT SER MASTERf 0000000 »PATCH/MERGE« 2 

DKA OUT SER PATCHDE 0000000 » PATCH/MERGE* 2 

CHA RFL CARD«PATCH/MERGE= 2 






?EMD 



PATCHDE/0000000/0000000= SEGS — CREATED 10/13/76 AT 00*21111*27 

DKA REL PATCHDE 0000000 J PATCH/MERGE* 2 

PBD0668 REL On LINE 45 JPATCH/MERGE* 2 

MASTERF/OOOOOOO/OOGOOOOs 300 SE6S--CREATE0 10/13/76 AT 16129119*47 

DKA REL MASTERF 0000000 1 PATCH/MERGE" 2 

PATCH/MERGE- 2»PST= 3 EOj 

PKT*0(S68 REMOVED 



LABEL OOOOOOOOOLINE 00176287? EXECUTE PATCH/MERGE PATCH /MERGE 

BURROUGHS R-57Q0 PATCH/MERGE PROGRAM MARK XVI, 0.00 WEDNESDAY, 10/13/76, «t29 PM, 



********** INPUT * + * + *********** + ** + **** + **********************ii********1 l 1,i, + **i l 1t1,**1 l 1,i l i,4, + *i, il1l1r1r1l1l 4 l i, 

SP CARD CONFLICTS LISTI NONO ZIP 
S, 2 PATCHES FOR FIND 

CARD INPUT IS CARD 
S* COMPILE XFIND/DISK WITH TSPOL LIBRARY 

s* tspol file tape = symbol/Find disk serial 

$* DATA CARD 
$• 

$ RESET STUFF LIST SET TAPE SINGLE 



S# PATCH 900 FOR FInD CONTAINS 1 CARD. PRINT FILE DECLARATION C 0900 

St THE PRINT FILE DECLARATION IS CHANGED TO (1) PERMIT OUTPUT EITHER C 0900 

St DIRECTLY TO THE LINE PRINTER OR TO A PRINTER BACKUP FILE* AND (2) TO C 0900 

St PROVIDE AN FID FOR THE EXTERNAL FILE NAME. IN THE ABSENCE OF (2), C 0900 

St THE INTERNAL FILE NAME = °LPA" DEFAULTS TO BECOME THE FID OF THE C 0900 

St EXTERNAL FILE NAME, WHICH THEN OVERRIDES THE OEFAULT PRINTER C 0900 

St SELECTION OF THE "UNITQ" OPTION IN TSSMCP. (SEE UCSC PATCH 700 TO C 0900 

St TSSMCP) c 0900 

St BY OR* UCSC, OCT. 13, 1976 C 0900 
FILE OUT LPA 17 "PRINTER" (2»15)) 00010700 C 0900 

$1 t********************************************************************* c 0900 



s# patch 901 for find contains 1 card, single space printed output c 0901 

St BY OR* UCSC, OCT. 13, 1976 c c^qj 

WRITE(LPA,10,WORK[*3); 00031000 C 0901 



NUMBER OF ERRORS DETECTED a 0. 
PROCESSOR TIME * 2 SECONDS. 
I/O TIME * 6 SECONDS. 



LABEL OOOOOOOOOLINF: 00176287? EXECUTE PATCH/MERGE 



PATCH /MERGE 



? COMPILE XFINO/DISK WITH TSPOL LIBRARY 

PACKET 669 

INPUT 8 CARDS FROM ZIP 

TIME 1629 

DATE 762B7 WEDNESDAY* 10/13/76 



*** MESSAGE OF THE DAY *** 

WELCOME TO R5700 TIME SHARING. 

MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS 
FROM THE STAFF OF THE BIG BAD BURROUGHS, 



PROVEN. 



*** BURROUGHS B5700 TSMCP MARK XVI, 0.69 AND INTRINSICS MARK XVI, 0.00 *** 

? COMPILE XFINO/DISK WITH TSPOL LIBRARY 

? TSPOL FILE TAPE* SYMBOL/FIND DISK SERIAL 
? DATA CARD 

4tTSP0L/XFlNDs 3 BOJ 1629 08/28/76 

CDB IN CARD DB:TSPOL/XFlNDa 3 

OKA IN SER SYMBOL FIND « TSPOL/XFlND= 3 

DKA OUT RDM XFIND DI SK I TSPOL/XF IND* 3 

OKA LOK XFIND DISK STSPQL/XFIND* 3 

DKA REL SYMBOL F INDI TSPOL/XF IND* 3 

CDB REL CARD OB » TSPOL/XF IND* 3 



?ENO. 



TSPOL/XFINH= 3*PST* 20 EOJ 
PKT«0669 REMOVED 



